Smart Steps: 2nd Grade/SSGRADE2.iso/pc/media/notions/maths/m2112.dxr/00030_Message Aides.ls

Text File | 1999-03-27 | 1.7 KB | 60 lines

on mouseDown
  global getAt, gSon, gCpt, gCpt1, gCpt2, gCpt3, gCpt4, gCpt5
  set GmySprite to the clickOn
  ClickMain()
  if GmySprite = 6 then
    set Son to the name of member (getAt(gSon, 1) + gCpt) of castLib 1
    joue(Son)
    if gCpt < 2 then
      set gCpt to gCpt + 1
      set the memberNum of sprite 6 to the memberNum of sprite 6 + 1
      updateStage()
    end if
  end if
  if GmySprite = 7 then
    set Son to the name of member (getAt(gSon, 2) + gCpt1) of castLib 1
    joue(Son)
    if gCpt1 < 2 then
      set gCpt1 to gCpt1 + 1
      set the memberNum of sprite 7 to the memberNum of sprite 7 + 1
      updateStage()
    end if
  end if
  if GmySprite = 8 then
    set Son to the name of member (getAt(gSon, 3) + gCpt2) of castLib 1
    joue(Son)
    if gCpt2 < 2 then
      set gCpt2 to gCpt2 + 1
      set the memberNum of sprite 8 to the memberNum of sprite 8 + 1
      updateStage()
    end if
  end if
  if GmySprite = 9 then
    set Son to the name of member (getAt(gSon, 4) + gCpt3) of castLib 1
    joue(Son)
    if gCpt3 < 2 then
      set gCpt3 to gCpt3 + 1
      set the memberNum of sprite 9 to the memberNum of sprite 9 + 1
      updateStage()
    end if
  end if
  if GmySprite = 10 then
    set Son to the name of member (getAt(gSon, 5) + gCpt4) of castLib 1
    joue(Son)
    if gCpt4 < 2 then
      set gCpt4 to gCpt4 + 1
      set the memberNum of sprite 10 to the memberNum of sprite 10 + 1
      updateStage()
    end if
  end if
  if GmySprite = 11 then
    set Son to the name of member (getAt(gSon, 6) + gCpt5) of castLib 1
    joue(Son)
    if gCpt5 < 2 then
      set gCpt5 to gCpt5 + 1
      set the memberNum of sprite 11 to the memberNum of sprite 11 + 1
      updateStage()
    end if
  end if
end